5 GOSUB60100:CLR
10 POKE53280,0:POKE53281,0
50 PRINT "[147][159]      [195]REATED BY:  [158][210]ICHARD [210]AGER"
80 PRINT TAB(9)"[195] [154]- [208]RINT CARD"
90 PRINT TAB(9)"[194] [154]- [208]LAY [194].[201].[206].[199].[207]."
95 PRINT TAB(9)"[209] [154]- [209]UIT"
100 PRINT TAB(9)"[154][208]RESS [195][154], [194][154], OR [209][154]."
110 POKE646,C:PRINT"";TAB(9);"[194].[201].[206].[199].[207]. [211]IMULATOR"
120 A=PEEK(203):IFA=28ORA=20ORA=62THEN150
140 IFC=15THENC=1:GOTO110
150 IFA=28THEN180
160 IFA=20THEN670
165 IFA=62THENGOSUB60000:GOTO100
170 C=C+1:GOTO110
180 REM PLAY GAME
190 PRINT "[147]";:MI=.
200 PRINTTAB(15)"[176][192][192][192][192][192][192][174]"
210 PRINT"   [150] [209] [146] [209][213][201][212][211]   [221]      [221]    [150] [209] [146] [209][213][201][212][211]"
220 PRINTTAB(15)"[173][192][192][192][192][192][192][189]"
230 M1$="[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][174]":PRINTM1$;
235 M2$="[221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]   [221]"
236 M3$="[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][179]"
237 M4$="[173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][189]"
240 FOR A=1TO9
250 PRINTM2$;
260 PRINTM3$;
270 NEXT A
280 PRINTM2$;
290 PRINTM4$;
300 PRINT"[158][194]";
310 PRINT"01020304050607"
320 PRINT"0809101112131415"
330 PRINT"[158][201]16171819202122"
340 PRINT"2324252627282930"
350 PRINT"[158][206]31323334353637"
360 PRINT"3839404142434445"
370 PRINT"[158][199]46474849505152"
380 PRINT"5354555657585960"
390 PRINT"[158][207]61626364656667"
400 PRINT"6869707172737475"
410 PRINTTAB(5)"[154][208]RESS [211][208][193][195][197] [194][193][210] [154]FOR NEXT NUMBER.";:IFQUTHENQU=.:GOTO540
420 PRINT""TAB(17)"    "
430 B$(1)="[194]":B$(2)="[201]":B$(3)="[206]"
440 B$(4)="[199]":B$(5)="[207]":MI=MI+1
450 LC=INT(RND(0)*5)+1
460 NC=INT(RND(0)*15)+1
470 NN=NC+((LC-1)*15)
480 SC=55463
490 SS=SC+((LC-1)*160)+((NC-1)*5)+((NC>7)*-40)
500 IFSS>56295THENEND
505 GOSUB2000
510 IF(PEEK(SS)AND15)=15THEN450
515 PRINT"";:GOSUB2010
520 POKESS,15:POKESS+1,15
530 PRINT""TAB(17)""B$(LC)NN:POKE198,.
535 IFMI>74THEN3000
540 A=PEEK(203):IFA<>60ANDA<>62THEN540
550 IFA=60THEN420
560 GOSUB60060
570 GOTO410
670 REM PRINT CARDS
680 PRINTCHR$(14)CHR$(8)"[147]";TAB(9);"[194].[201].[206].[199].[207]. [211]IMULATOR"
700 PRINT "[159]      [195]REATED BY:  [210]ICHARD [210]AGER"
720 PRINT
730 PRINT"[154][197]NTER NUMBER OF CARDS TO MAKE:"
735 PRINT"([208]RESS [210][197][212][213][210][206] ALONE TO EXIT.)"
740 PRINT"-->";:GOSUB60500:CC=VAL(B$)
745 IFB$=""THEN10
750 PRINT
760 PRINT"    [154][208]RESS [211][208][193][195][197] [154]WHEN READY TO PRINT.":PRINT
780 IFPEEK(203)<>60THEN780
790 PRINT"[145][145][145][145][145][145]";
800 FORA=1TO6
810 PRINT"                                       "
820 NEXT:PRINT"[145][145][145][145][145][145][145]"
821 OPEN15,4,15:CLOSE15:IFST=0 THEN 830
822 POKE53281,1:POKE53281,.:PRINT"   [208]RINTER ([196]EVICE #4) [206]OT [196]ETECTED."
823 PRINT"[154]  [208]RESS [152]([211][208][193][195][197][152])[154] [215]HEN [210]EADY [212]O [195]ONTINUE "
824 PRINT"[154]      [207][210] [152]([210][197][212][213][210][206][152])[154] [212]O [193]BORT [212]O [205]ENU"
825 GETA$:IFA$=""THEN 825
826 IF A$=" "THEN 821
827 IF A$=CHR$(13)THEN 50
828 GOTO 825
830 GOSUB1600:OPEN4,4
840 FORNC=1TOCC
850 PRINT""
860 PRINTTAB(7)"[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"
870 PRINTTAB(7)"[221] [194]  [221] [201]  [221] [206]  [221] [199]  [221] [207]  [221]"
880 PRINTTAB(7)"[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
890 FORA=1TO4
900 PRINTTAB(7)"[221]    [221]    [221]    [221]    [221]    [221]"
910 PRINTTAB(7)"[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
920 NEXTA
930 PRINTTAB(7)"[221]    [221]    [221]    [221]    [221]    [221]"
940 PRINTTAB(7)"[173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
950 FORA=1TO5:B(A)=0
960 B=INT(RND(0)*15)+1
970 FORAA=1TOA:IFB(AA)=BGOTO960
980 NEXT AA
990 B(A)=B:NEXTA
1000 FORA=1TO5:I(A)=0
1010 I=INT(RND(0)*15)+16
1020 FORAA=1TOA:IFI(AA)=IGOTO1010
1030 NEXT AA
1040 I(A)=I:NEXTA
1050 FORA=1TO5:N(A)=0
1060 N=INT(RND(0)*15)+31
1070 FORAA=1TOA:IFN(AA)=NGOTO1060
1080 NEXT AA
1090 N(A)=N:NEXTA
1100 FORA=1TO5:G(A)=0
1110 G=INT(RND(0)*15)+46
1120 FORAA=1TOA:IFG(AA)=GGOTO1110
1130 NEXT AA
1140 G(A)=G:NEXTA
1150 FORA=1TO5:O(A)=0
1160 O=INT(RND(0)*15)+61
1170 FORAA=1TOA:IFO(AA)=OGOTO1160
1180 NEXT AA
1190 O(A)=O:NEXTA
1200 PRINT"";
1210 FORA=1TO5
1220 IFA=3THENPRINTTAB(8)B(A)""TAB(13)I(A)"FREE"G(A)""O(A)SPC(13);
1225 IFA=3THENGOTO1240
1230 PRINTTAB(8)B(A)""TAB(13)I(A)""N(A)""G(A)""O(A)SPC(13);
1240 PRINT:NEXTA
1250 DW$=CHR$(14):SW$=CHR$(15)
1260 GR$=CHR$(8)
1270 C$(2)=DW$+"[221] B  [221] I  [221] N  [221] G  [221] O  [221]"+GR$
1280 C$(1)=DW$+"[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"+GR$
1290 C$(3)=DW$+"[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"+GR$
1300 C$(4)=DW$+"[221]    [221]    [221]    [221]    [221]    [221]"+GR$
1310 C$(5)=DW$+"[173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"+GR$
1320 FORA=1TO3
1330 PRINT#4,C$(A):GOSUB1600:NEXTA
1340 FORA=1TO4:GOSUB1600
1350 PRINT#4,C$(4):GOSUB1600
1360 PRINT#4,DW$"[221]";:IFB(A)<10THENPRINT#4," ";
1370 PRINT#4,B(A);
1380 PRINT#4,"[221]"I(A);
1390 IFA=3THENPRINT#4,"[221]"SW$"  FREE  "DW$;:GOTO1410
1400 PRINT#4,"[221]"N(A);
1410 PRINT#4,"[221]"G(A);
1420 PRINT#4,"[221]"O(A)"[221]"GR$
1430 PRINT#4,C$(4):GOSUB1600
1440 PRINT#4,C$(3):GOSUB1600
1450 NEXTA
1460 PRINT#4,C$(4):GOSUB1600
1470 PRINT#4,DW$"[221]";:IFB(A)<10THENPRINT#4," ";
1480 PRINT#4,B(5);
1490 PRINT#4,"[221]"I(5);
1500 PRINT#4,"[221]"N(5);
1510 PRINT#4,"[221]"G(5);
1520 PRINT#4,"[221]"O(5)"[221]"GR$:GOSUB1600
1530 PRINT#4,C$(4):GOSUB1600
1540 PRINT#4,C$(5):GOSUB1600
1550 PRINT#4
1560 IFNC/4=INT(NC/4)THENPRINT#4,CHR$(8);:FORMM=1TO17:PRINT#4:NEXT
1570 GOSUB1600:NEXT NC
1580 PRINT"[196]ONE.":CLOSE4
1590 FORA=1TO2000:NEXT:GOTO50
1600 REM DO SOME THING
1610 PRINT""TAB(16)"[208]RINTING"
1611 PRINT"       [208]RESS [198]1 [212]O [193]BORT [212]O [205]ENU       "
1620 PRINTTAB(7)"[206]UMBER LEFT TO PRINT: ";RIGHT$("0"+MID$(STR$(CC-NC),2),2)
1630 CO=CO+1:IFCO=15THENCO=1
1640 POKE646,CO
1650 GETA$:IFA$="[133]"THENPRINT#4:CLOSE4:GOTO 50
1660 RETURN
2000 POKE646,(PEEK(646)AND15)+1
2010 PRINT""TAB(15)"[176][192][192][192][192][192][192][174]"
2020 PRINTTAB(15)"[221]      [221]"
2030 PRINTTAB(15)"[173][192][192][192][192][192][192][189]":RETURN
3000 PRINT"      [197][206][196] [207][198] [199][193][205][197] -- [208][210][197][211][211] [210][197][212][213][210][206]     "
3010 IFPEEK(203)<>1THEN3010
3020 GOTO10
60000 PRINT"  [154][193]RE YOU SURE YOU WANT TO QUIT? ([217][154]/[206][154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 LOAD"HELLO CONNECT",8
60060 PRINT"";
60065 PRINT"  [154][193]RE YOU SURE YOU WANT TO QUIT? ([217][154]/[206][154])"
60070 A=PEEK(203):IFA<>25ANDA<>39THEN60070
60080 IFA=25THEN10
60090 PRINT"";
60095 PRINT"                                      [145][145]":QU=1:RETURN
60100 POKE53280,1:POKE53281,1
60110 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60160 PRINT"                              "
60170 PRINT"           [194]INGO [211]IMULATOR    [155] "
60180 PRINT"                              [155] "
60190 PRINT"          [194]Y  [210]ICHARD [210]AGER   [155] "
60200 PRINT"                              [155] "
60210 PRINT"           [195]OPYRIGHT  1987    [155] "
60220 PRINT"                              [155] "
60230 PRINT"                               "
60240 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE"
60250 IFPEEK(203)<>60THEN60250
60260 RETURN
60500 B$="":PRINT"[164]";:FORA=1TO4
60510 GETA$:IFA$=""THEN60510
60520 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60540 IFA=4THEN60510
60550 IFA$<"0"ORA$>"9"THEN60510
60560 PRINT"[157]"A$"[164]";:B$=B$+A$:NEXT